home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / pslatex / fonts / thicken.ps < prev   
Text File  |  1992-09-09  |  438b  |  20 lines
  1. % Increase the strokewidth of a stroked (PaintType 1 or 3) font.
  2. % If the font is not of the right PaintType or does not have a 
  3. % StrokeWidth entry, does nothing.
  4.  
  5. % Mario Wolczko, 10 Sep 92
  6.  
  7. /ThickenFont {  % factor ThickenFont
  8. 20 dict begin
  9.   /factor exch def
  10.   /StrokeWidth where {
  11.     /fdict exch def
  12.     PaintType dup
  13.     1 eq exch 3 eq or
  14.       { StrokeWidth factor mul
  15.     fdict /StrokeWidth 3 2 roll put
  16.       } if
  17.   } if
  18. end
  19. } def
  20.